home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / Folders.p < prev    next >
Text File  |  1995-09-12  |  3KB  |  76 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 6:12:40 PM }
  2. {
  3.      File:        Folders.p
  4.  
  5.      Contains:    Folder Manager Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT Folders;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __FOLDERS__}
  26. {$SETC __FOLDERS__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types, Files;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. CONST
  36.     kOnSystemDisk                = $8000;
  37.     kCreateFolder                = true;
  38.     kDontCreateFolder            = false;
  39.     kSystemFolderType            = 'macs';                        { the system folder }
  40.     kDesktopFolderType            = 'desk';                        { the desktop folder; objects in this folder show on the desk top. }
  41.     kTrashFolderType            = 'trsh';                        { the trash folder; objects in this folder show up in the trash }
  42.     kWhereToEmptyTrashFolderType = 'empt';                        { the "empty trash" folder; Finder starts empty from here down }
  43.     kPrintMonitorDocsFolderType    = 'prnt';                        { Print Monitor documents }
  44.     kStartupFolderType            = 'strt';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here }
  45.     kShutdownFolderType            = 'shdf';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at shutdown go here }
  46.     kAppleMenuFolderType        = 'amnu';                        { Finder objects to put into the Apple menu go here }
  47.     kControlPanelFolderType        = 'ctrl';                        { Control Panels go here (may contain INITs) }
  48.     kExtensionFolderType        = 'extn';                        { Finder extensions go here }
  49.     kFontsFolderType            = 'font';                        { Fonts go here }
  50.     kPreferencesFolderType        = 'pref';                        { preferences for applications go here }
  51.     kTemporaryFolderType        = 'temp';
  52.  
  53. {$IFC SystemSevenOrLater }
  54.  
  55. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  56.     {$IFC NOT GENERATINGCFM}
  57.     INLINE $7000, $A823;
  58.     {$ENDC}
  59. {$ELSEC}
  60.  
  61. FUNCTION FindFolder(vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): OSErr;
  62. {$ENDC}
  63. FUNCTION ReleaseFolder(vRefNum: INTEGER; folderType: OSType): OSErr;
  64.     {$IFC NOT GENERATINGCFM}
  65.     INLINE $700B, $A823;
  66.     {$ENDC}
  67.  
  68. { $ALIGN RESET}
  69. { $POP}
  70.  
  71. {$ENDC} {__FOLDERS__}
  72.  
  73.  IMPLEMENTATION
  74.  END.
  75.  
  76.